DIM B% 999
SYS "OS_GetEnv" TO C%
SYS "OS_ReadArgs","name,quit,prog,res",C%,B%,999
IF B%!8<=0 PRINT "ResFind <program> [<variable>]":END
V$=FNs(B%!8)
SYS "Territory_Number" TO C%
SYS "Territory_NumberToName",C%,B%,999
SYS "XOS_File",13,"<"+V$+"$Dir>.Resources."+FNs(B%) TO C%;F%
IF F% AND 1=1 THEN $(B%)="UK"
IF C%<>2 THEN $(B%)="UK"
P$="<"+V$+"$Dir>.Resources."+FNs(B%)+"."
IF B%!12=0 THEN SYS "OS_SetVarVal",V$+"$Path",P$,LEN(P$) ELSE SYS "OS_SetVarVal",FNs(B%!12),P$,LEN(P$)
END
DEF FNs(P%):LOCAL a$:a$=""
WHILE ?P%>31
a$+=CHR$(?P%):P%+=1
ENDWHILE:=a$
